(let ((*public-vars nil))

  (load "object.el")  
  
  (defun parse (parse-string)
    (let ((*str parse-string))
      
      (cond ((or (string= (car parse-string) "(Object")
		 (string= (car parse-string) "Object"))
	     (if (eq nil (cdr *str))
		 (error "Object name ommitted."))
	     (setq *public-vars 
		   (append (Object (cadr parse-string)) *public-vars))
	     (if (eq nil (cddr *str))
		 (error "End of parse."))
	     (setq *str (cddr parse-string))
	     )
	    ))
    (parse (cdr *str)))
  
  (parse (list "Object" "class"))
  
  )
	  